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ITT IIITII TIT i titi titi titi iti tii iii iii iii iii iii iii, 
3* * 
3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY & 
3* DIGITAL EQUIPMENT EORPORA ION, MAYNARD, MASSACHUSETTS. * 
ALL RIGHTS RESERVED. * 
: & 
3* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3* ONLY IN ACCORDANCE WITH TH M * 
3* INCLUSI 0 SOF TWAR H * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3* TRANSFERRED. * 
3* % 
3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3* CORPORATION. * 
id % 
3* * 
3* « 
38 & 
;* * 
3 * 


DIGITAL ASSUMES NO RESPONS ae FOR THE USE OR _ RELIABILITY OF ITS 


I 
SOFTWARE ON EQUIPMENT WHICH NOT SUPPLIED BY DIGITAL. 


PRRARRARAARAREASABAAREREEEEEELESASESESE SESE RE EERE ERR RRR RRR RR RAR RRR ARERR RASS 
++ 
facility: 
VAX/VMS PL1 runtime Library 
abstract: 
This module contains the pl1 runtime routines to put items to a 
pli stream file under list directed i/o. 
author: c. spitz 28-nov-79 
modified: 


1-002 Bill Matthews 29-September-1982 
Invoke macros $defdat and rtshare instead of $defopr and share. 
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: external definitions 
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0 

0 $deffcb sdefine file control block 

0 $defstk sdefine stack frame offsets 
$defstr sdefine stream block offsets 


oo 


$defdat sdefine operand node data types 


= | adaptable i a det by oer6 : | AX/VMS Macro V04-00 Page dj 
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geet geyent 
$rabdef 
$rmsdef 
ssdef 


ine rms rab offsets 


tine get options block 
sine rms error codes 


4 
9 
ide 
ide 
ide 
idefine system status codes 


: Local data 


rtshare ssharable 


p++ 
3 pli$putlerre 


; the pli$putl**** routines are called by the compiled code to put items 

; to a stream output file under List directed transmission. each routine 

3; converts the source item to a character string based un the source data 

: type and puts then puts the string to the file by jumping to 

3; Pp i$$putnlis_r6. | 
| 


pli$putlchar_ré 
inputs: 


r0 - address of element to put 

rl - size/prec of element to put 

r11=- address of stream block 

ap - address of file control block 
outputs: 


COOQoOQCOCOCCoOOoCoCooCoOCooOoOOCoOOOoOoOoOOOOOoOOoOOo 


SOOOCOCOCOSOOOSOSOOOOSOOOCOSOOOOSOSOOSOOSOOSOOSOSOSOOSOOOOOOOOOOOSOOOOOOOOOO 
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TOMO ODNWOM GHW MNS YS SNM D NLS OOOCOCOOCSCO COSCO OOOOOOOOOOOOOOOOOOOOOOO 

= | “DOC DOODOOOCO OOOO OWOO OOO 000009 09 09 09 09 09 09 09 “INI NINN NS SIA AA AAAAAOOU 

PW DO ODNA NE WID 9 ODNAUE WN $$ O OD NOAU EWN 0 ODNOAU EWN OOONOUES WOO 
Pete Ge Ge Ge te Ge Ge Ge Ge 


0 ; none 
0 side effects: 
rO-r6 are destroyed 
0 pli$putlchar_ré:: 
Oc AC 08 C8 0 bisl #atr_m_recur,fcb_l_attr(ap) ;set recursion flag 
a» ww & 0 addl r0,r sget ending address of source 
52 1A 48 9E 0 movab <str_b_field+2>(r11),r2 :get starting addr in field 
% 6 5 dO 0 mov r2.r scopy it 
3 14 AB 00 000 movl str_l_fld_end(ri1).r3  ;get_end addr of field 
03 0C AC O07 EO 001 bbs #att_V_print, fcb_l_attr(ap),5$ ;skip lead quote if print 
82 gf 90 001 movb #*x27,Tr2)+ zinsert the Leading quote 
51 0 D1 001 5$: cmpl r0,r1 nothing in source? 
29 «13 «001 1 beql 60 sif eql, then yes 
27 60 91 Bt 101 10$: cmpb (r0) ,#*x27 inext char a quote? 
oc 862 1 bneq 20$ sif neg. then no 
07 OC AC O07 EO 00 1 bbs #atr y print, fcb_l_attr(ap).208 ;if print file, don't change 
82 2727 a BO 00 1 movw #*°x2727,(r2)+ sinsert 2 quotes 
7 Th @ 1 brb 50$ continue 
8¢ 9 90 00 1 gps: movb (rO),(r2)+ scopy to field 
02 50 1 £2 00 1 O$: aoblss r1,r6,55$ iif not end of source, cont 
OF 11 00 1 brb $ finish it off 
53 2 0.1 00 109 55$: cmpl re,r3 ifield overflow? 
Fe 83 1 blss 1 :if iss, then no, cont 
50 00000000° 8F 9 0 1 movl #pli$_strovfl,r0 zset field overflow 
0113 1 Be 1 brw fail 1 zand_fail. 2 / 
03 OC AC 7? 3 4 115 60$: bbs #atriv pe int. feb_tattr(ap) .708 sif print, don't add trail quote 
82 7 0 004 1 movb #*x27,Tr2)+ zinsert trailing quote 
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PLISPUTLISTITEM y= 4 AX/VMS Macro V04-00 Page 3 
stb0e 71984 4: $$; $3 PLIRTL.S RCIP LIPUTLIS.MAR;1 . (1) | 
2 54 C2 005 115 708: subl r4,r2 get lengt 
3 52 6 $638 118 movw r2,-(r4) iSet tengtn in field 
Q0000000'GF 16 B20 11 sb Msg essen dy r6 sput in buffer 
AC 08 CA 26 118 ick atr_m_recur, fcb_l _attr(ap) iclr recursion flag 
05 006 119 rsb return 
0061 120 
0061 121 gpl iSputlycha, r6 
0061 1 ¢ : inp 
0061 123; o- - address of element to put 
0061 124; rl = size/prec of element to put 
0061 125 ; r1i - address of stream bloc 
0061 1 § : ap - address of file control block 
0061 1 $ eutpeees 
0061 128; 
0061 129 ; side retfects 
0061 130; r0-r6 are ‘ destroyed 
0061 131; 
0061 13 
0061 1335 pli$putlvcha_ré:: 
Oc AC 08 CB 0061 134 bist” #atr m_recur,fcb_l_attr(ap) ;set recursion flag 
51 80 3€ 0065 135 aovsut (r0)#,F1 sget length of source 
FF9S 31 0068 136 brw pliSputichar. ré6 ;continue in common 
0068 137 
0068 138 
0068 139 
0068 140 eatin oe te r6 
0068 141 ; inp 
0068 | $ ey - address of element to put 
0068 143; rl - size/prec of element to put 
006B 144 ; r2 - offset to starting bit 
0068 145 ; rii - address of stream block 
0068 146; ap - address of file control block 
0068 147; sony oy 
0068 148 ; 
0068 149; side wetfects 
0068 150; r0-r6 one “destroyed 
0068 151; 
0068 13 : 
0068 153 pli$putlbit_ré:: 
Oc AC 08 CB Q06B 154 bist + ie! m_recur,fcb_l -attr(ap) z;set recursion flag 
55 52 D0 QO6F 155 mov l r2.r copy offset 
52 18 AB 9E 0072 #156 movab = str b. field(rit), r2 iget field addr 
2 03 3) &@ G76 37 addw3 he 7(r2)+ :set size 
8¢ ¢/ po Boon 138 movb #*x27,(r2)+ sinsert a quote 
7 7D = 15 mov | ri,r3. ; et size 
OOO003E8 8F 53 D1 0080 160 cmpl r3,#1000 hd over flow? 
pA 15 si 161 bleq if leg. then no 
50  00000000' 8F 9 089 166 mov #olis_ strovfl,r0 ‘set field over flow 
00C8 1 94 16 brw te il zand fail 
54 5 51 C1 009 164 10% addl3 55h" sget addr of end of string 
64 4227 8F BO 0097 165 movw a 27, ¢ splug in trailing quote and B 
00000000'GF 00 FB 09¢ 166 calls 10, rT pt U1Sbitchar, r6 iconvert bits 
00000000'GF 16 OQOA 16 sb “pli$$putnlis_ré put in buffer 
Oc AC 08 CA QOA9 168 icl atr_m_recur,fcb_l_attr(ap) ;clr recursion flag 
05 OQOAD 19% rsb sreturn 
AE 170 
AE 171 


Sane meee Ten 
1-002 


AE 
AE 
AE 
AE 
AE 
AE 
AE 
AE 
AE 
AE 
AE 
AE 
‘ 
e? 
B4 
B6 
6 
6 
6 


on-"vTowonm 


WS OWOoOmo 
ROPPONPINIMINININS 3 9 9 PP MODOC OOOOOCOCOOOOOOOO OO OOO OCW OOOO9WO8 NINN NINN 


CON AUL WO ODNAUE WIN (OO ONAUES WN $9 OO NAME WN O OONOA UE WW CO OONAUIE WN 


RIPDMINIPINININPYNININPYNPINIPYIPINPIPUPINIPINININPINPINIPININID) 2 A I OS 


SOOSCSCOSOOSOSDOOOCOCOOOSOSOOOoOOSooS 
SOOoooooooooooooooooooooeo 
mmnovovcvVcoVvVcVCcoCVCVCVC9o°o°000000 28 
SA2O NOOO IM 


owomeo 


C 
9 
D 
F 
1 


<4 1384 4: $9; 33 PLIRTL SREIP LYPor OTS.MAR:1 a 


spliSputlabit. r6 
inputs: 
r0 - address of element to put 
ri = size/prec of element te Xa 
ri11 = address of stream block 
ap - address of file control block 
outputs: 


none 
side effects: 
rO-r6 are destroyed 


pli$putlabit_ré:: 
bist” Hater. m_recur,fcb_l_attr(ap) ;set recursion flag 

ctrl r2 sset offset to 0 

brb pli$putlbit_ré :join common code 


ppt iSeuctt ise. r6 
inputs 
~ Ye - address of element to put 
rl = size/prec of element to put 
rit - address of stream block 
ap - address of file control block 
outputs: 


none 
side effects: 
r0-r6 are destroyed 
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Li$putlfixb_ré:: 
an bisl” 


#atr_m_recur,fcb_l attr(ap) ;set recursion flag 
11).¢r ddr 


r.fcb_ 
movab str -f jeldtr ire zset field a 
mov | 1000. yset size 
calls #0.9. nel istixbvcna. r6 sconvert it 
sb “pli’$putnlis_r6— sput in buffer 
icl atr_m_recur,fcb_l_attr(ap) ;clr recursion flag 
rsb return 


aph (Squtl tind, r6 
inputs 
~ - address of element to put 
rl = size/prec of element to put 
r11- address of stream block 
ap - address of file control block 
Guteute: 


side wettects 
r0-r6 are destroyed 


Li$putlfixd_ré6:: 
p p biel 


#atr_m recur,fcb_l attr (ap) zset recursion flag 
aves str_B_Field(r11)or2 zset field addr 
mov 74009. r3 iset size 
calls re "pLiStixdy vehe _r6 sconvert it 
jsb i$$putnlis_r6 sput in buffer 
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bicl #atr_m_recur,fcb_l_attr(ap) +h recursion flag 
rsb return 


tae r6 


we - address of element to put 

rf - size/prec of element to put 

ri1- address of stream block 

ap - address of file control block 
outputs: 


none 
side effects: 
rO-r6 are destroyed 


Li$ wet) t ré:: 
p p bis 


#atr_m recur,fcb_l_attr(ap) ;set recursion flag 
caoall str 0b Veletrit), r2 zset field addr 
movl sset field width 
fen se 0, if *plistutpvena.r r6 sconvert it 
bie “pli$$putnlis_ré— ;put in buffer 
My atr_m_recur,fcb_l_ sarily, Rg recursion flag 
zreturn 


pte ee r6 


r0 - address of element to put 
rl = size/prec of element to A ows 
rit - address of stream block 
ap - address of file control block 
—— 


non 
side attects 
r0-r6 are ‘ destroyed 


pli$putlfltd_ré:: 
bist” #atr_m recur,fcb_l_attr(ap) ;set oes ran flag 


movab str ab FeldC (r11)7r2 yset field 
mov l sset field width 
a. Q.9" spisttegvens, r6 seonvert it 
pli’$putnlis_r sput in buffer 
ote q* $putnl 6” t in buff 
vet atr_m_recur,fcb_l -attr(ap) clr recursion flag 
return 


“ying oh Hy r6 


pro - address of element to put 

rl - size/prec of element to put 

ar - address of stream block 

ap - address of file control block 
outputs: 


none 
side effects: 
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] . § 3 r0-r6 are destroyed 
13A 8 pl 1Sputipye r6:: 
AC + gs 135A 9 ist #atrim recur,fcb_l_attr(ap) ;set recursion flag 
3 3 1 90 movab ste -fjeldtril) .re set field addr 
53 =—00 QO3E BF OD 14 91 movl gi00 iset oize 
00000000'GF 00 FB O14 3 alls 9-9 "elise picvcha_ré peonvert it 
0900d000"G: 16 0150 39 jb ‘i piSSputnlis_ré cput in buffer 
oc 0 CA 0156 94 ick atr_m_recur,fcb_l _attr(ap) iclr recursion flag 
05 130 32 rsb yreturn 
08 AC 50 D0 0138 39 fail:  movl r0,fcb_l_error(ap) yeet error in fcb 
5C DD OQO15F 98 pushl a set fcb address 
50 DD 0161 99 pushl fr set error code 
00000000'8F DD 0163 00 pushl og! {8 or cor ;set error condition 
00000000'GF 03 0169 01 calls #3,g*pli$io_error 4 nal error condition 
0170 if ret return 
0171 + 30 
0171 304 end 
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Psect synopsis H 


PSECT name Allocation PSECT 


N 
. . 00000000 ¢ 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS FFFFFFFC (¢ Q.) O01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
-PLISCODE 00000171 (¢ 369.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


poeweccecceoseccccesecoons 


Oo. Attributes 


Phase Page faults CPU Time Elapsed Tim 
Initialization | 12 00:00:00.08 00:00:00.29 
Command processing 74 Ss Sh 4 00:00:01.95 
ass 251 00:00:09.4 00:00:19.42 
Symbcl table sort 0 00:00:01.34 eS Be ty 
Pass 59 00:00:01.62 00:00:03.81 
Symbol table output 10 00:00:00.08 00:00:00.28 
Psect synopsis output 1 00:00:00.03 00:00:00.23 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 407 00:00:13.24 60:00:28.65 


The working set Limit was 1050 pages. 

51576 bytes (101 pages) of virtual memory were used to buffer the intermediate code. 

There were 50 pages of symbol table space allocated to hold 972 non-local and 8 local symbols. 
304 source Lines were read in Pass 1, producing 11 object records in Pass 2. 

18 pages of virtual memory were used to define 16 macros. 


+ 
! Macro library statistics ! 
+ + 


Macro Library name Macros defined 


_$255$DUA28: CPLIRTL.OBJIPLIRTMAC.MLB; 1 6 

$255$DUA28: CSYSLIBISTARLET.MLB;2 7 
TOTALS (all Libraries) 13 
995 GETS were required to define 13 macros. 


There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESS1ON/D1 SABLE=TRACEBACK/LIS=LIS$:PLIPUTLIS/OBJ=OBJ$:PLIPUTLIS MSRC$:PLIPUTLIS/UPDATE=(ENHS:PLIPUTLIS)+LIB$:PLIRTM 
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